Mobiclic 71/MOBICLIC 71.ISO/mac/DATA/COMMUN/temp0001/00240_Script_GESTION_BTON_FERME_AIDE-INFO-DICO

Text File | 2004-12-05 | 791b | 33 lines

property p_cettePiste, p_Nodepiste,p_nom_Acteur
----------------------------------
on beginsprite me
  p_Nodepiste = me.spriteNum
  p_cettePiste = sprite(p_Nodepiste)
  p_nom_Acteur = p_cettePiste.member.name
end
-----------------------------------
on mouseEnter
  if the pauseState = 1 then exit
  cursor 280
  p_cettePiste. member = p_nom_Acteur&"_R"
  updateStage
end
-----------------------------------
on mouseWithin
  if the pauseState = 1 then exit
  cursor 280
end
---------------------------------
on mouseLeave
  if the pauseState = 1 then exit
  cursor -1
  puppetsprite  p_Nodepiste , FALSE
end
-----------------------------------
on mouseUp
  if the pauseState = 1 then exit
  cursor -1
  go "ATTENTE"
end
-----------------------------------